total <- 0
n <- 10^4
j <- 0
while(j<=n){
  label <- 1
  group <- runif(3)
  for(i in 1:3){
    if(group[i]>sum(group[-i])){
      label <- 0
    }
  }
  total <- total+label
  j <- j+1
}
print(total/n)
